﻿Module Module1

    Sub Main()
        Dim a, x, b As Double
        Console.Write("a=")
        a = CDbl(Console.ReadLine)
        x = 1
        For b = 1 To a
            x = x * b
        Next
        Console.WriteLine(a & "!=" & x)
        Console.Read()

    End Sub

End Module
